home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
fbr12c
/
aboutit.frm
next >
Wrap
Text File
|
1995-09-06
|
4KB
|
127 lines
VERSION 2.00
Begin Form AboutIt
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "About..."
ClientHeight = 3690
ClientLeft = 1530
ClientTop = 1620
ClientWidth = 3315
Height = 4095
Left = 1470
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3690
ScaleWidth = 3315
Top = 1275
Width = 3435
Begin CommandButton AboutOK
Caption = "&OK"
Height = 375
Left = 855
TabIndex = 0
Top = 3045
Width = 1575
End
Begin PictureBox Picture1
Height = 2550
Left = 255
ScaleHeight = 2520
ScaleWidth = 2775
TabIndex = 1
TabStop = 0 'False
Top = 255
Width = 2805
Begin Label Label6
Alignment = 2 'Center
Caption = "Compuserve ID: 76646,2552"
Height = 240
Left = 45
TabIndex = 7
Top = 2190
Width = 2685
End
Begin Label Label2
Alignment = 2 'Center
Caption = "More Homegrown Software from Marshal Bostwick."
Height = 435
Left = 45
TabIndex = 3
Top = 1710
Width = 2685
End
Begin Label Label4
Alignment = 2 'Center
Caption = "A Shareware Run and Load Utility for Windows. "
Height = 420
Left = 45
TabIndex = 5
Top = 1215
Width = 2685
End
Begin Label Label5
Alignment = 2 'Center
Caption = " (son of FileBoy's Runner) "
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = -1 'True
Height = 255
Left = 45
TabIndex = 6
Top = 825
Width = 2685
End
Begin Label Label1
Alignment = 2 'Center
Caption = "Runway 1.2c"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 405
Left = 45
TabIndex = 2
Top = 360
Width = 2685
End
Begin Label Label3
Alignment = 2 'Center
Caption = " FileBoy's "
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = -1 'True
Height = 255
Left = 45
TabIndex = 4
Top = 45
Width = 2685
End
End
End
Sub AboutOK_Click ()
Unload AboutIt
End Sub
Sub Form_Load ()
AboutIt.Left = (Screen.Width - AboutIt.Width) / 2
AboutIt.Top = (Screen.Height - AboutIt.Height) / 3
End Sub
Sub Form_Paint ()
FrameFrm AboutIt
FrameCtrl AboutIt, Picture1, Picture1, Picture1, Picture1
FrameCtrl AboutIt, AboutOK, AboutOK, AboutOK, AboutOK
End Sub